home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib15.dsk / BYTE FINDER.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  31 lines
  1. 10  REM  **********************
  2. 11  REM  *    BYTE FINDER     *
  3. 12  REM  * BY STEVEN WEYHRICH *
  4. 13  REM  * COPYRIGHT (C) 1983 *
  5. 14  REM  * BY MICROSPARC, INC *
  6. 15  REM  * LINCOLN, MA. 01773 *
  7. 16  REM  **********************
  8. 40 C000 = 49152:C100 = 49408:C700 = 50944
  9. 50 KBD =  -16384:STR =  -16368
  10. 60  TEXT : HOME 
  11. 70  FOR K = 0 TO 1:K = 0
  12. 80  VTAB 3: PRINT "TYPE ";: INVERSE : PRINT "Q";: NORMAL : PRINT " TO QUIT": PRINT 
  13. 90  INPUT "BYTE # (0 - 255) ";BYTE$
  14. 100  IF BYTE$ = "Q"  THEN  VTAB 22: END 
  15. 110 BYTE =  VAL(BYTE$)
  16. 120  IF BYTE <0  OR BYTE >255  THEN 90
  17. 130  VTAB 7
  18. 140  PRINT "SLOT  ADDRESS  BYTE #  VALUE"
  19. 150  PRINT "====  =======  ======  ====="
  20. 160  FOR J = 0 TO 1:J = 0
  21. 170  VTAB 10
  22. 180  FOR I = C100 TO C700  STEP 256
  23. 190 SLOT = (I -C100)/256 +1
  24. 200 BTE$ =  RIGHT$("   " + STR$(BYTE),3)
  25. 210 VLUE$ =  RIGHT$("   " + STR$( PEEK(I +BYTE)),3)
  26. 220  PRINT "  "SLOT"    "I"    "BTE$ TAB( 25)VLUE$
  27. 230  NEXT I
  28. 240  PRINT : PRINT : PRINT "HIT ANY KEY TO CHANGE BYTE #"
  29. 250 X =  PEEK(KBD): POKE STR,0: IF X >127  THEN J = 1
  30. 260  NEXT J
  31. 270  NEXT K